home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / derror / Save / ErrorMove.ttx < prev    next >
Text File  |  1995-12-24  |  951b  |  48 lines
  1. /*
  2. **      $Id: ErrorMove.ttx,v 30.0 1994/06/10 18:05:15 dice Exp $
  3. **
  4. **      DICE Error Parsing system.  Script for Oxxi TurboText (tm).
  5. **
  6. **  Notes: This assumes that your DCC:Config/DCC.Config file contains the
  7. **         following line:
  8. **
  9. **  cmd= rx DCC:Rexx/TTX_ErrorParse.rexx %e "%c" "%f" "%0"
  10. */
  11.  
  12. PARSE UPPER ARG COMMAND  /* Valid commands: Current First Next Prev */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. IF ~show('p','DICE_ERROR_PARSER') THEN
  17.    DO
  18.       'SetStatusBar Error Parsing Not Active'
  19.       EXIT 0
  20.    END
  21.  
  22. ADDRESS DICE_ERROR_PARSER COMMAND E
  23. IF rc ~= 0 THEN
  24.    DO
  25.       'SetStatusBar No More Errors'
  26.       exit 0
  27.    END
  28.  
  29. ADDRESS DICE_ERROR_PARSER TTXSAME E.FPATH E.ARGS
  30. IF RC ~= 0 THEN
  31.    DO
  32.       'SetStatusBar Unable to open' E.FPATH
  33.       exit 0
  34.    END
  35.  
  36. Port = RESULT
  37. ADDRESS Value Port
  38. 'MoveBookMark' 1000+E.line
  39. IF RC ~= 0 THEN
  40.    'Move FOLDS' E.Line E.Col
  41. ELSE
  42.    DO
  43.       'MoveSOL'
  44.       'MoveRight' E.col-1
  45.    END
  46.  
  47. 'SetStatusBar' E.STRING
  48.